home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / LABELS.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.0 KB  |  53 lines
  1. * labels.sig 08/18/83
  2. ERASE
  3. STORE DATE() TO stdat
  4. * get a starting  point
  5. STORE DATE() TO stdat
  6. @ 18,12 SAY 'Orders after what date require shipping labels'
  7. @ 18,60 GET stdat PICTURE '99/99/99'
  8. READ
  9. STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
  10. GOTO TOP
  11. STORE t TO more
  12. SET MARGIN TO 5
  13. DO WHILE more
  14. IF .NOT. EOF
  15. STORE $(dayu,7,2)+$(dayu,1,2)+$(dayu,4,2) TO stdate1
  16. IF stdate1 >= stdate
  17. STORE 0 TO xtra
  18. ? ' '
  19. ? TRIM(fname) +' ' + lname
  20. ? addr1
  21. IF addr2 <> ' '
  22. ? addr2
  23. ELSE
  24. STORE xtra + 1 TO xtra
  25. ENDIF addr2
  26. IF addr3 <> ' '
  27. ? addr3
  28. ELSE
  29. STORE xtra + 1 TO xtra
  30. ENDIF addr3
  31. ? TRIM(city) +', '+  state + '  ' +zip
  32. ? ' '
  33. ? '** MAGNETIC MEDIA - DO NOT X-RAY **  '
  34. ? ' '
  35. DO WHILE xtra <> 0
  36. ? ' '
  37. STORE xtra -1 TO xtra
  38. ENDDO while xtra
  39. SKIP
  40. ELSE
  41. SKIP
  42. ENDIF $date
  43. ELSE
  44. STORE f TO more
  45. ENDIF not EOF
  46. ENDDO more
  47. EJECT
  48. ? CHR(30)
  49. SET PRINT OFF
  50. RELEASE all
  51. STORE t TO more
  52. STORE t TO first
  53.